home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / src / ggt.lha / ggT / zeiger_verwaltung.ads < prev   
Encoding:
Text File  |  2002-02-13  |  918 b   |  28 lines
  1. -- Zeigerverwaltung
  2. -- Autor: Norman Walter
  3. -- Datum: 2.2.2002
  4.  
  5. -- Das Paketschema zeiger_verwaltung stellt dem Benutzer die
  6. -- Möglichkeit der "garbage collection" zur Verfügung.
  7. -- Es wird der zeiger_typ definiert, mit dem die Komponenten
  8. -- einfach verkettet werden. Das Paket enthält die Prozeduren
  9. -- ablegen und holen, um ein überflüssig gewordenes
  10. -- Listenelement an die Liste anzuhängen bzw. ein Listenelement
  11. -- aus der Liste zu entnehmen. Erst wenn die Liste leer ist,
  12. -- wird in holen ein neues Listenelement erzeugt.
  13.  
  14. generic
  15.    type komponente is private;
  16.  
  17. package zeiger_verwaltung is
  18.    type komponente_rahmen;
  19.    type zeiger_typ is access komponente_rahmen;
  20.    type komponente_rahmen is
  21.       record
  22.          daten : komponente;
  23.          nachfolger : zeiger_typ;
  24.       end record;
  25.    procedure ablegen (zeiger : in out zeiger_typ);
  26.    procedure holen (zeiger : out zeiger_typ);
  27. end zeiger_verwaltung;
  28.